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: D. N. CUTLER 22-JUN-76 
MODIFIED BY: 


v03-041 Lande? Lawrence J. Kenah c. -Jun-1984 
d R5 to entry mask for SCANEXH system service. 
v03-040 LMP0239 L. Mark Pilant, 23-Apr-1984 9: a 


Change SCHKPRO from an exec mode service to a kernel mo 
service. This was made necessary by the SCHKPRO lnternat 
entry point) interface change. 


v03-039 MMD0250 Rog bye 27-Feb-1984 17:49 
Ade quopert for $M ACCESS "Seoeat lentes specific accessibility 
routine 


v03-038 DASO001 David Solomon 20-F eb-1984 
japlonent os new ges en for RMS echo ne a greserrrys 
(vs V03-019). Echo is now performed by AST 
routine eylaee in RMS\RMSEXRMS. Change INCB/DECB of °F AB/RAB 
busy bit to BISB/BICB, now that we have room. 


v03-037 bane tf Stan Amway 28-Dec-1983 
For $ScTPFM, changed number of argeeters from 1 to 4 
and changed entry mask to save R2-R 


v03-036 TMKO0002 Todd M 19-Nov-1983 
The entry point for sasctolD can no longer be reached as a 


CSOOOOOCOCOCOCOCOCOCO COO COSCSOOOCOHXIOSOCOOCOCCCGOCOOCOCOCOOCOOCOCOOCOOOOCOOOCOOOOOOCOOOOo 
OOOOCSCOSOSSSc GOSS SOSOSOSOOSOOOCOOCOOSOOOOOOOOOOOOOOoOO 
COOCCCOOCOCOCOCOOCOSCOOOCOOOOOOOOOOOOOOOOOOOoOO 
SOOCOCOCOCOCOCOCOCOOCOOCOCOOSOOCO SOO OSSOCOSSCOSS DOCS OOCCOCOOCOCOCOOOOOOOOOOOOoOO 
SIND DP PDA DPA AA DAT BS BB BE ANNI WII nnononononononnn) 
NR OOOO UF WR OO OONO UNE WIN 0 OO NAU EWR 0 OD NOA UE WI OC OONOU SW ON f 
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COOoOoooooooeo 
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prench destination from the executive mode dispatcher. 

a hy Att entry point (EXESASCTOID) has been placed within 
this module, and a JMP is made from it to the real system 
service entry point (EXESSASCTOID) 


Also, change the entry mask for SYSSTRNLOG, so that R8 is 
now saved. 


vO3-035 TMKOOO1 Todd M 22-0c t-1983 
The entry points for SFINISH RDB and SIDTOASC can no 

longer be reached as branch destinations from the executive 

mode dispatcher. Temporary entry points (EXESF INISH_ RDB and 

EXES1DTO SC) have oper laced within this module, and from 


each a JMP is made e real 5 a service entry points 
(EXESSFINISH_ RDB oan EXESSIDIOASE) 
V03-034 PRBO254 Paul Beck 15-Sep-1983 14:49 


(1) Correct the way synchronous CJF services are defined. 
(2) Define loadable RUF services. 


v03-033 wMCc0029 Wayne Cardoza aay -1983 
y 


Make SCHKPRO an EXEC mode system service to Sl lew examination 
of various system data structures. 


SOOCOOCOOCOOCOOOCSOSOOSOOSOOOSOSOSOOOOOSOSOOSOOOOOOCOOOOOOOOOOOOOOOOOOOOO 
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Loadable services should not be ampond Tenens inhibited. 
Add an alternate CHMx argument to LDBSR 
V03-032 DWT0125 David W. Thiel 22-Aug-1983 
Remove CHECKARGLIST and calls to same. 
1 V03-031 MKLO167 ary Kay Lyons Auge -1983 
: Generate eadebie service vector for corseere 3. 
0 1 v03-030 KBT0578 Keith B. Thompson 8-Aug-1983 
! Add parameter to $FILESCAN 
0 1 V03-029 RASO178 Ron Schaefer 29-Jul-1983 
ois Add code to detect the AST/non-AST RMS FAB/RAB race 
0 1 condition where an RMS operation is initiated while 
0 1 the user FAB/RAB is still waiting for completion of 
: previous operation. 
» v03-028 wMC0028 Wayne Cardoza 29-Jun-1983 
8 ! Add CJF services. 
4 V03-027 wMCc0027 Wayne Cardoza litt hans 
B88 1 Make old logical name services ‘‘all mode 
B8 : Changes to image activator vectors. 
$00 1 V03-026 JWHO222 Jeffrey W. Horn 22-May-1983 
bbe 1 Add LDBSRV macro for vector definitions of leadeble 
000 ! services. 
1 V03-025 DMwW4035 DMWalp 26-May-1983 
' Intergate new logical name structures. 
! V03-024 Lap P0109 Mark Pilant, 28-Apr-1983 15:53 
3 1 
0 1 


ooo 
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V03-024 RASO147 aefer 28-APR-1983 
Add SFILESCAN. aga” R oa R9 to SSETPRN register mask. 


Ooo 
Oooo 


V03-023 JLV0244 27-APR-1983 
Add S$BRKTHRUW. ioee e VBaROeST to all mode service. 
SBROCST now uses SBRKTHRU to do reali work. 

y03-022 LMP0099 L. Mark Pilant, 13-Apr-1983 19:15 
Add the SCHKPRO system service. 

v03-021 ACGO319 Andrew C. Goldstein, 21-Mar-1983 13:51 
Add $GRANTID and SREVOKID services 

V03-020 JLV0234 Jake VanNoy ’ 1-MAR-1983 
Add $BRKTHRU service. 

v03-019 RASO120 Ron Schaefer 25-Feb-1983 


Add support to echo SSS INPUT to SYSSOUTPUT. 

This involves exenintng the return code from RMS for $GET; 
if the special status RMS$_ECHO snes returned to users) 
is found, then create a RAB on the caller's stack and 
execute a $PUT operation to echo the Line. 

A certain amount of RMS synchronization code was 

shuffled around in order to make room for this. 
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v03-018 ACGO317 Andrew C. Goldstein, 22-Feb-1983 15:16 

Fix off-by-one in kernel arg vector 
V03-017 RSHO004 Sco 10-Feb-1983 

Added S$ASCTOID, SfINISH. * ADB “and SIDTOASC to system service List 
V03-016 RNGOO16 Rod N. Gamache 11-Feb-1983 

Added S$GETLKI to system service list 
v03-015 wmMCc0015 aype Cardoza 12-Jan-1983 

Put back Ba FT. ly deleted space holder for RMS synchronization. 
V03-014 DMW4023 eel 7-Jan-1983 

haded SCRELNT, SCREL SDELLNM and $TRNLNM 
v03-013 KDM0033 Kathleen D. Morse 13-Dec-1982 


Correct usage of an interlocked Instruction to flush 
the hardware cache queue. 


V03-012 ROWO146 Ralph 0. Weber 6-DEC-1982 
Insert routine header comments for INHEXCP, CHECKARGLIST, 
and EXE SCMODKRNLX (MPSSCMODKRNLX), Move thi ings around so 
that EXESCMODKRNL (MP PSSCMODKRNE) header Sonnenee are Seer 
EXESCMODRKNL CRPSSCHODKRNL) and ASTEXIT comments are nea 
af tT) Make basic perng;<nese -PSECT dottnitien for YSCMODK 
or MPSCMOD1 immediately after executive mode code so that new 
code can be inserted. ; a 9 “are that preserves routine headers 
conditional assembly, and .PSECT definitions. Backout R rowi4$, 
in its B REY’ so correct conditional ogsempty, of BGEQU 10% 


OOoOOOCOCSCOSCOSOOSSOSOOSOSOSOSOSOSSSOSOSOSOCOOOSOOSOOSOSOOOOOSOSoO 


and 
after ACCVI hat it is assembled only for MPCMOD F 
so that it is acter before ACCVIO Ret Change PCB address 
lookup at KERDSP in MPCMOD to use CTLS$GL PCB so that it works 
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correctly regardless of which processor executes it. 


v03-011 ROWO145 Ralph 0. Weber 29-N0V-1982 
Move EXESEXCPTIN (and MPSSEXCPTN) to before ASTEXIT (or 
MPSSASTEXIT) in an attempt to make branch destinations in 
EXESCMODKRNL reach. 


v03-010 KDM0030 Kathleen D. Morse 18-Nov-1982 
Add logic to MPCMOD that allows the primary to execute 
secondary-specific code, without turning into a secondary. 


V03-009 MLJ0099 Martin L. Jack, 20-Oct-1982 19:42 
Complete V03-002 by correcting mode and argument count of 
SSNDJBC and removing temporary stubs. 


v03-008 R1IHO0001 Richard I. Hustvedt 1=-Jun-1982 
Correct handling of AST queue by secondary processor to 
gvois ie some AST notifications by incorrectly computing 


v03-007 kOM0018 Kathleen D. Morse 30-Sep-1982 
Add MPSWITCH Logic to create a kernel system seryice 
dispatcher for the secondary processor of an 11/782. 

v03-006 $TJ3028 Steven T. Jeffreys 26-Sep-1982 
Added SERAPAT system service vector. 

v03-005 DWT0058 David Thiel 11-Aug-1982 
Eliminate use of R2 while waiting for service 
completion. 

V03-004 JWHOOO1 Jeffrey W. Horn 26-Jul-1982 


Add new RMS service, RMSRUHNDLR, an un-documented service 
which acts as the Recovery Unit handler for RMS. 


v03-003 PHLO102 Peter H. Lipman 16-Jul-1982 
Fix new SYNCH Logic to always return SS$_NORMAL, 
not access IOSB if error from service, and return 
error status from SSETEF if event flag cluster went away 


V03-002 PHLO101 Peter H. Lipman 17-Jun-1982 
Add $SYNCH system service and fix $Q10W and SENQW to use the 
new code for waiting for the combination of EFN and 10SB 
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ooo 


Improve readability of conditionals. 


Add $GETOVIW, SGETJPIW, SGETSYiw, SSNDJBC, SSNDJBCW, and 
SUPDSECW. ALL the waiting versions use common code. 


CHANGE MODE SYSTEM SERVICE DISPATCHER 
MACRO LIBRARY CALLS 
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SEP=1984 
B 
mM 
M 
C 
C ;MPSWITCH 
L 
C 
M 
C 
M GSYSSRV 


WHERE: 
RVICE NAME 


oOo 
2 
Oo 


GCOMPSRVB 
NDF ,MPSWITCH 
NOF -RMSSWITCH 

DF ,LIBSWITCH 
Ct $$$0000, QUAD 
T $$$000,aUAD 


QUAD 
LIBSWITCH 
. NOT_BLANK, <SRVNAME>,=- 


*PREFIX'S 


COMPSTRT= 


NOT_BLANK, <REGMSK>,- 
<REGMSK> 


. . ° . a e . - 7 oe 7 . 
CTUETUETIET mee Ts ee PT 
ZZzz2zzZ0— ZMH BM ZY NN yp 


E 
F 
E 
D 
I 
F 
N 
F 
ABL LSB 
F 
R 
Dd 
D 
. ;MPSWITCH 


6COMPSRVB 


GCOMPSRVE QUADWORDS 
WHERE : 


SOSDODOOOCODSOOOOSDSOOSOOOOSOSOOOOODODDOODOOOOODOOOODOOOOOOOOOOOOOOOOe 
SOSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSOSOSSOSSOSOSOSOSOSSOOSOOOOOOSOOSOS 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
DAMMAM AAA BBE EB BBWAA AAA AAA AR OROPORIPURIPUNININD  BOQOOOOO 
DODWNA UNE WN OD OONA UNE WN OOD NA NE WIN OOO NAUE WN 0 OO NOUS WN OOOO 


SOOSOOCoCOCSoOOCOSoSOOSOSOOOOOSOOOOOOOSOSOSOSOOSOSOSOOSOOSOOOCOSOOOOCOOOOOOOOOOoCS 


YNC 
ODE SRVNAME ,NARG , MASK 
ODE SRVNAME ,NARG ,MASK ,NOSYNC 


ODE SRVNAME ,NARG , MASK 


SUPPLIED, THE P 


SE 
ASK = SYMBOLIC 
F OMITTED, “'SYSS$"’ 


> xm 


AX/VMS Macro Vv04-00 
SYS.SRCIJCMODSSOSP.MAR; 1 


GCOMPSRVB - GENERATE COMPOSITE SYSTEM SERVICE ENTRY VECTOR BEGIN 
GCOMPSRVB SRVNAME ,REGISTER_MASKL[ ,PREF IX] 


PREFIX (SYS$, EXE$) 

R MASK, E.G Q10_MASK 
FOR THE SERVICE NAME. 
SSUMED. 


SRVNAME , REGMSK , PREF IX=SYS$ 


GCOMPSRVE - GENERATE COMPOSITE SYSTEM SERVICE ENTRY VECTOR END 


QUADWORDS - NUMBER OF QUADWORDS TO RESERVE FOR VECTOR 


met, 
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CRO GCOMPSRVE, QUADS 
NDF ,MPSWITCH 
NOF -RMSSWITCH 
DF ,LIBSWITCH 
QUADS 


SW 


OMPSTRT 
QUADS *8-COMPSIZE 


é 
é 
5 
6 
6 GE 
$ B QUADS*8-COMPSIZE 

f R ; VECTOR EXCEEDS ALLOCATED SIZE ; 


:MPSWITCH 
GCOMPSRVE 


SRVK = GENERATE ENTRY FOR KERNEL MODE SERVICE 


7? 
7 
7 
? 
7 
7 
7 
8 
4 
4 SRVK SRVNAME ,NARG ,MASK 


Sete Ge Ge Ge 


.MACRO SRVK, SRVNAME ,NARG, MASK 

LIF NDF ,RMSSWITCH 

-IF DF MPS 
CMKSC_'SRVNAME==KCASCTR 

s ;MPSWITCH DEFINED 
CMKSC_*SRVNAME=KCASCTR 

CHMK  #SRVNAME 


RE 

24 37! YSCMODKN,BYTE 
= 

— NARG LE 127 


g 


4 


; 


9 


S 


MASK 

YSCMODK ,BYTE 

WORD EXES$* SRVNAME~KCASE+2 
R sMPSWITCH 

R+1 

:MPSWITCH 

SRVK 


SRVNAME=K 
KCASCTR=K 


OOoooooooo 


; 


SOoOoooooooooo 


4 
8 
9 
0 
4 
8 
9 
0 
4 
5 
6 
7 
8 
9 
0 
1 
5 
8 
0 
4 
5 
SRVE - GENERATE ENTRY FOR EXECUTIVE MODE SERVICE 
4 ~-MACRO = SRVE,SRVNAME ,NARG,MASK 

5 IF NOF ,APSWITCH 


NDF RMSSWITCH 


8 
8 
8 
8 
8 
9 
9 
9 
9 
9 
9 
9 
9 
9 
9 
0 
0 
0 
1 
1 
1 
1 
1 
1 
16 “IF 
17 CMESC_"SRVNAME=ECASCTR 
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- :40 SYS.SRCICMODSSDSP.MAR; 1 (1) | 
41 CHME § #SRVNAME 
41 RET 
4 .PSECT YSCMODEN, BYTE 
421 *SECASCT 
4 : ASSUME NARG LE 127 
4 BYTE AR 
426 -PSECT YSCMODEX,BYTE 
425 -ZECASCTR 
00 4 : “BYTE MASK 
4 -PSECT YSCMODE,BYTE 
00 4 8 - SIGNED WORD  EXES'SRVNAME-ECASE+2 
09 430 SRVNAME=ECASCTR 
00 431 ECASCTR=ECASCTR#1 
00 4 3 -ENDC =: MPSWITCH 
000 4 -ENDM © SRVE 
ae 
9000 4 $ : MACROS FOR GENERATING RMS SYSTEM VECTORS 
9000 438 .MACRO RMSSRV SRVNAME NA NARG=1 ,REGS=<R2,R3,R4,R5,R6,R7,RB,RO,R10,R11>, = 
0000 440 GSYSSRV SRVNAME,R, NARG. eREGS> »MASK ,NOSYNC 
9000 44] .ENDM = RMSSRV 
9000 ce$ : SRVR = GENERATE ENTRY FOR RMS SERVICE (EXEC MODE) 
0000 445 .MACRO SRVR SRVNAME ,NARG ,MASK ,NOSYNC 
0000 446 “IF NOF ,MPSWITCH 
0000 447 IF NDF -RMSSWITCH 
0000 448 CMESC_'SRVNAME=RCASCTR 
0009 80 “Tree OSYNe, Ane 
4 451 LIF GT <.+2-RMSSYNC>-127,- 
9000 43g RSSYNC= =RMSWBR ;RESET BRANCH DESTINATION 
0000 454 BRB RMSSYNC 
8 ade 
ita 439 .ENDC 
9000 438 “PSECT YSCMODEN, BYTE 
00 45 * =RCASCT 
0 460 ASSUME NARG LE 127 
6 461 BYTE 
0 A6¢ *PSECT YSCMODEX,BYTE 
6 0 46 *=RCAS 
0 464 “BYTE MASK 
0 465 “IFF 
00 466 *PSECT SSSRMSVEC 
0 46 ~SIGNED_ TE ANNARE-RCASE*2 
0 4 p- gENDC 
469 SRVNAME=RCASCTR 
4 9 RCASCTRERCASCTR R+1 
47 .ENDC = s MPSWITC!. 
Are “ENDM = SRVR 
0 47 
474; 
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SRVALL = GENERATE ENTRY FOR ALL MODE SERVICE 


«MACRO SRVALL, SRVNAME ,NARG, MASK 
wl F gHPSulTCH 
at NDF, 


me *SRVNAME +2 


N 
[ENDC =; MPSWITCH 
sENDM © SRVALL 
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= 
~ 


-SBTTL Macros for Loadable Services 


LDBSRV = Generate Loadable Service Vector 
LOBSRV PREFIX,SRVNAME ,MODE,REGS,SYN_EFN,SYN_IOSB,ALT_CHMX 
Where: 


ooo 


Prefix for system service vector A wit P 
Service name less any prefix (SY hs ts 
Mode designator for service (K,E,ALL) 
Register save list 

Event flag argument number for $SYNCH 
IO0SB argument number for S$SYNCH 

Use same CHMx number as this service 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Sete Ses 

Oonwsanwnv 
<monwwz 
oaooc«cm 

wma 

>e 

= 

m 
seeveueene 


EF IX, SRVNAME ,MODE ,REGS,SYN_EFN,SYN_IOSB, ALT_CHMX 


TCH 
a ta QUAD 
PREFIX" *SRVNAME:: 
IF BLANK SYN_EFN 
~BLKL 2 
oIFF 
, ome 
ri ft eerees. QUAD 
WORD THER EGS> 
SRVNAME' MASK = “M<REGS> 
ott’ "MOBE PREFIX SRVNAME ,SYN_EFN,SYN_IOSB,ALT_CHMX 
.ENDC =; MPSWITCH 
-ENDC 3; RMSSWITCH 
-ENDM LODBSRV 
LVEC_K = Kernel Mode Loadable System Service Vector 
LVEC_K PREFIX,SERVICE,EFN,10SB 
»MACRO LVEC_K peer ae. SERVICE,EFN, 10SB,ALT_CHMK 
“IF BLANK ALT ¢ 
, mee, SERVICE = PREF IX*KCASCTR 
FomKSC_ "SERVICE = ALT_CHMK 


CHMK #SERVICE 

- IF NOT BLANK EFN 
PUSAL #EFN 
PUSHL #10SB 
JMP a#EXE 


OOOOCCOCCSOOCOCOOOOSOOOSOSOSOOSOSOSOSOSOSOSOSOSOOSOOSOOOOOOOOSOOOSoO: 
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PVIVIVIVPVLV IV IV DIVDIVDIUIVIVLIVLUSVSVSVSVUSIUSIUSUSUSUSTSVSVSUS USUI SISSIES SES EY 
HEH PWMWAIWWIWINIGIWIWIDMIPIPIPINININININID 2 OP | MOO OOCOOOOCOCOCOOVOOOOOOOOWACD 
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 IFF 
RET 


-ENDC 
IF BLANK ALT_CHMK 
SERVICE =~PREFIX'KCASC 
PREFIX'KCASCTR = PREF! 
SERVICE = ALT_CHMK 


7ENDM = LVEC_K 


TR 
X'KCASCTR + 1 


LVEC_E = Exec Mode Loadable System Service Vector | 
LVEC_E PREFIX,SERVICE,EFN,10SB | 


OOoOOOCQCQOooooooooooo°oo 
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4 
4 
4 
4 
4 
; 
5 
5 
5 
5 
5 
5 
5 
6 
6 
6 


~MACRO LVEC_E,PREFIX,SERVICE,EFN, 10SB,ALT_CHME 
-1F BLANK ALT_CHM 
CMESC_"SERVICE = PREFIX'ECASCTR 


: 
5 
§ 
0 
1 
: 
4 
5 
: 
8 
9 
0 
1 
3 * CMESC_"SERVICE = ALT_CHME 
z 
9 
0 
1 
g 
4 
5 
7 
8 
0 
1 
j 
4 
5 
5 
8 
9 


COOCOCoOoOoOoooooooooooooooo 


CoOooooooooooSo 


| 

CHME — #SERVICE | 

IF NOT BLANK EFN | 
PUSAL #EFN | 
PUSHL #10SB 


a#EXESLDB_SYNCH | 


6 
6 
6 
6 
6 
6 
6 
? 
7 JMP 
7? 
7? 
? 
? 
? 


6 
7 
? ECASCTR + 1 
79 


SoOoOSCSCOSSOOSOSOSOSOOSOOOOSOSOSOOOOOOOOOOOOOOOOOOO 
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“ENDM = LVEC_E 


LVEC_ALL = Mode of caller Loadable System Service Vector 

LVEC_ALL PREFIX,SERVICE,EFN,IOSB 

-MACRO LVEC_ALL,PREFIX,SERVICE,EFN, 10SB,ALT_CHMK | 
ERVICE 


- IF NOT BLANK EFN 
-ERROR ; SYNCH NOT ALLOWED FOR ALL-MODE SERVICES 


0 

1 

g ~ENDC 

4 [ENDM = LVEC_ALL 
6 

8 


JMP avEXE$'sS 
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5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
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8 
8 
: 
9 
9 
9 
9 
9 
9 
9 
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00000000 ECASCTR=0 | 
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| 
1213; | 
1g ; DEFINE REMAINING SERVICES | 
1216 * 
00 1549 GSYSSRV ADISTE.K ;ADJUST OUTER MODE STACK POINTER | 
000 1 18 Ty RS,R6>,- SREGISTERS R2-R6 
000 121 EXC Migeee sEXCEPTION MASK 
Bee 1220 GSYSSRV AD sUSt 2,° sADJUST WORKING SET LIMIT 
000 1201 <R2,R3,R4,R5> SREGISTERS R2-R5 
900 1 : GSYSSRV ALCONE. K,4,- TALLOCATE DIAGNOSTIC PAGE 
000 1 R3-RL,RS,R6,R7> SREGISTERS R2-R7 
9990 1224 GSYSSRV AL CK,4.- TALLOCATE DEVICE 
000 1225 as, Ra RSR6> SREGISTERS R2-R6 
0000 1226 GSYSSRV A scr Fook TASSOCIATE COMMON EVENT FLAG CLUSTER 
0000 1227 R tp AS. R6.R7,R8, R9.R10,R11> :REGISTERS R2-R11 
0000 1228 GSYSSRV A art [CONVERT TO ASCII TIME 
0000 1229 RS ne ries R6> TREGISTERS R2-R6 
0000 1230 GSYSSRV A s$icy TASSIGN 1/0 CHANNEL 
0000 1231 aie Me ‘AS. R6,R7,RB,RI.R10,R11> REGISTERS R2-R11 
0000 1 3¢ GSyssRV B inte ge [CONVERT TO BINARY TiM 
0000 123 me. ne Le R6,R7,R8> REGISTERS R2-R8 
0000 1 34 GSyssRv ¢ ANCE ik [CANCEL 1/0 ON CHANNEL 
0000 1235 che, R R4_RS,R6,.R7,R8> ZREGISTERS R2-RE 
0000 1 36 GSYSSRV CAN K,2,- [CANCEL TIMER REQUEST 
0000 1237 < NTIRAK 2 TREGISTERS R2-R 
0000 1238 GSYSSRV CANWAK.K “<5 [CANCEL WAKE UP REQUESTS 
0000 1239 <R2.R3 RA R > TREGISTERS R2-R5S 
0000 1240 GSYSSRV CRMPSC. i CREATE AND MAP SECT 
0000 1241 <R2,R nl RS. R6,R7,RB,RO_R10,R11> REGISTERS Teer 
0000 1 4¢ GSYSSRV cL RPA :CLEAR HARD PARITY ERROR 
0000 124 <Re RS, Rook R5> REGISTERS 2- 
0000 1244 GSYSSRV CMEXEC.E,2,- [CHANGE MODE TO EXECUTIVE 
0000 1245 rs ey REGIST ER RG 
0000 1246 GSYSSRV CMKRNL.K, 2.- ; CHANGE MODE TO KERNEL 
0000 1247 TREGISTER Rs 
0000 1248 GSYSSRV cLRer [CLEAR EVENT 
0000 1249 ate fe; RS> REGISTERS ROCKS” SEE WAITFR COMMENTS. 
9000 1250 GSYSSRV cnt nek : CONTRACT RE 10N 
000 1251 <R2,R nd RS.R6.R7> PREGISTERS R R7 
0000 1 38 GSYSSRV GET TPT ‘GET PAGE TABLE INFORMATION 
0000 125 <R2,R ath RS, R6,R7,RB, Rd. RIO” *REGISTERS R2-R10 
0000 1254 GSYSSRV cr RELOG. *ALL [CREATE LOGICAL NAME 
000 1255 R RA RS°R6.R7_RB> :REGISTERS S Ro-RB 
900 1 36 GSYSSRV cr REABK.K CREA TE MA LBOX | 
1 R RA as. R6,R7_RB, R9° R10,R11> I EEGISTERS R2-R11 
000 1258 GSYSSRV cn PR CREA E E 
000 1259 > nd Se" ng RT.RB.RORTD Rite ;REGISTERS R2-R11 | 
0 1260 GSYSSRV cr RETVA [CREATE V Mike 
000 1261 Ke Re RS .R6.R7.RB>,-: REGISTERS 
900 1 6¢ Xe AASK TEXCEPTION 
0 126 GSYSSRV DACEE gk :DISASSOCIATE SE VENT <Ftas afhUSTER 
000 1264 ASRS. R5,R6,R7,RB,RO-R10,R11>_ : REGISTERS | 
1265 GSYSSRV DALLOE K,2,° :DEALLOCATE BEV ICE 
1 66 R RA RS .RB> : REGISTERS R2-R5,RB 
126 GSYSSRV DA ASSGN :DEASSIGN 1/9 CHANNEL 
6 1 68 RS. Re RS.R6.R7.R8> :REGISTERS R2-R8 
126 GSYSSRV Dec AST CK, $- [DECLARE AST SYSTEM SERVICE 
| 
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St SERRE VECTOR Macros for Loadabie Services | 
grteg 3,R4,R5> FREGISTERS R2-R5 
1270 DEEN: k - ;DECLARE EXIT HANDLER | 
1271 GSYSSRV of Ad ast hy A pg 
f pane et (fk R6,R7,RB> IMEGISTERS RSoR8 
e GSYSSRV D on" By.k My &5 5> HIRE | 
YSSRV bE PR : 235 
3 i i ae cae nh RAcRS.RO,R7> SDELETE VIRTUAL ADDRESS 
900 1 5 sete OE IRS_RL RS RG ,R7>, :REGISTERS R2-R7 
ore HET SO SECTION, 
8 1388 YSSRV ae se MB. Mee Re DEALLOCATE DIAGNOSTIC PAGE | 
$000 1 i - RS. Ap RS,R6,R7> {DELETE COMMON EVENT CLUSTER 
0000 | Hg septa 7 pSEES: My R5,R6,R7,RB,RO “RIO /RITD_ REGISTERS Rent} 
B08} Rv UPDge :UBD 
Se srssry HERR EORTRD HER Oe cose 
0000 1290 GSYSSRV SND NDERR.K Kile. :REGISTERS R2=n RS 
0000 4 $3 GSYSSRV eXifk: K,1,- SL ast Toke 
D 
BS cen SHE nara Meclette 
00 »ALL,0.- 2-R11 
0000 1599 = cao, nS, RA RS, R6,R7,RB,R9, “R108 AT ASELT OUTPUT WITH VALUE LIST 
9900 1698 Beye RY ee ee RL RS.RO.R7.RB_RO™ :RIOARI1> GREGISTERS R2-R11 
8000 1800 GSYSSRV FORCES Kee REGISTERS. R2-RS 
0000 1301 ate we SIMAGE STARTUP 
0000 1304 aereene Snp8C c nr na.n0'Fin alto keeiereee haan 
0000 1305 R nu AS. /R6, -R10.R1 1 
0000 130 GSYSSRV Gertie M,E,1,~ tNO REGISTERS 
0000 130% RVB UPDSECW,- [UPDATE SECTION AND WAIT 
0000 1309 Seoer SR CUPDSEC MASK ! GETJUPI_SYNICH MASKS 
3000 1317 GCOMPSRVE | g 2 HIBERNATE 
a ee at ii FREER naan 
00 SRV I” Acie ISTERS R2-R11 | 
i" 1320 aa, if R3, “Ri RS5.R6.R7,RB_RY, RIOARN> inn TERS | 
0000 1522 GSY zr i Re 3b KS. R6,R7,RB> REGISTERS R NIWORKING SET | 
OF lsse aca ‘ zak *RO_RS.R6,R7-RB> ‘Me ooh "sett iow sa | 
: § a sth ash RL AS. R6,R7,RB, 79 PUREE 12 gRes ste | 
0 ! 3 <R2eR Ab AS. R6,R7,RB> fo 11K 10 MUMERIC | 
? = cae RS Re R5,.R6,R7> Hy OPERATOR | 
SREGISTERS R2-R11 
000 1338 oe Sugére-t *REcRS.RO_R7.RB_RO-RIO RIS ;REGISTE 
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16-SEP-1 04: AX/VMS Macro v04-00 Page 
Breer ies Bbieaike PANCMES Beers VOU EO ast . 
GSYSSRV Q10,K,12,- /0 REQUEST 
on9 R3,R4_.R5,R6,R7,RB_RI, aye UE R11> :REGISTERS R2-R11 
GSYSSRV REAGEF .K,2,- TREAD EV VENT FLA 
<R2,R3,R4,R5> TREGISTERS R2-R 
GSYSSRV RE UME é,- SRESUME PROC CESS 
GSYSSRV RUNUN'E Ta tN tat 
<R2,R3_,R4,R5,R6,R7> SREGISTERS R2-R7 
GSYSSRV SND Dé mB -E E,2,- i SEND MSG TO SYMBIONT MANAGER 
<R2,R RA RS.R6.R7.RB.RO_RIO,R11> sREGISTERS R2-R11 
GSYSSRV sc HOwk ‘SCHEDULE WAK 
<R2 RS. av) RS.R6.R7.RB.R9> :REGISTERS R2-R9 
GSYSSRV sel TAST.K,1,- :SET AST ENABLE SERVICE 
<R2 RS, At, RS> SREGISTERS R2-R5S 
GSYSSRV SETEF SSET EVENT FLAG 
<R2 Rg Ra’ Ro TREGISTERS Ro-R5S. SEE WAITFR COMMENTS. 
GSYSSRV SETEXV.K [SET EXCEPTION VECTOR 
<R2,R3, M R5> SREGISTERS R2=- 
GSYSSRV SETER RN.K ‘SET PROCESS 
2.R3_RL_RS.RE-R7.RB.ROD REGISTERS R2-RO 
GSYSSRV set TPRA.K,0,= >SET POWER RECOVERY AST 
GSYSSRV Set Reng. ind AS» aa aS = 
2,R3, Ri R5.R6.R7.R8,.RO_RIO,R11> :REGISTERS R2-R11 
GSYSSRV set ter RIK K,4,- :SET PROCESS PRIORITY 
R3,R4 RS 5> SREGISTERS R2- 
GSYSSRV SEteRi és :SET PAGE PROTECTION 
<R2,R3, Ri RS.R6R7. RB,RO> :REGISTERS R2-R9 
GSYSSRV ser ETRWA wa.K,1,- ;SET RESOURCE WAIT MODE 
:REGISTER R 
GSYSSRV SETSEN.K.1,- [SET SYSTEM SERVICE (ALLURE MODE 
<R4>, EXC. MASK SREGISTER R4, <AND PTION MASK 
GSYSSRV SETSWM,K71,- 'SET PROC CESS 'S WAP 43 : 
<R4> sREGISTER 
GSYSSRV SUSPND K 2,- : SUSPEND PROCESS 
*R4,R5> SREGISTERS R2-R5 
GSYSSRV tance. ALL,6,- [TRANSLATE LOGICAL NAME 
R4,R5.R6,R7,RB> ;REGISTERS R2-R8 
GSYSSRV ULK KPAG.K K,3,- UNLOCK PAGE FROM MEMORY 
R3.R4_R5,R6,R7,RB> :REGISTERS 
GSYSSRV Oca och K,3,- UNLOCK PAGE “Fron WORKING SET 
<R2 RS. At 783. R6,R7,R8> tREGISTERS R 
GSYSSRV UNWIND. “A es" [UNWIND PROC DURE CALL STACK 
rae > SREGISTERS RO-R 
GSYSSRV ual tra Re ‘WAIT FOR EVENT 
R3, ah RS R6> TREGISTERS Ro- RB IS EVER USED 
[THE RMS SyCHRONIZATION CODE MUST BE 
[MODIFIED TO SAVE IT ALSO. 
GSYSSRV WAKE,K,2.- SWAKE PROCES 
<R2,.R3_RG.RS> SREGISTERS R2-R5S 
GSYSSRV WF WELAN K,2,- [WAIT FOR LOGICAL AND OF EVENT FLAGS 
R 'y RS .R6> SREGISTERS R2-R 
GSYSSRV ur F ti :WAIT FOR LOGICAL OR OF EVENT FLAGS 
RS, R R3- R6> SREGISTERS R2-R 
GSYSSRV ants: SBROADCAST TO TERMINALS 
R3. ay age *R6> TREGISTERS R2- 
GSYSSRV DCLCMH.K,$,- [DECLARE CHANGE MODE HANDLER 
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1391 <R4> SAVE AR 
1 36 GSYSSRV SETPEN, SET P NCE FAULT MONITORING 
139 aie R5,R6,R7,RB.RO_RIO,R11> :REGISTERS R2-R11 
09 1394 GSYSSRV an SALL 2-5 'GET MESSAGE 
1395 Re R3.R4_R5,R6,R7,RB,RO-R10,R11> ; REGISTERS R2-R11 
1 36 GSYSSRV DER RLMB .K K,1,- SDECLARE ERR ROR 06 MAILBOX 
139 R3,R4,R5> :REGISTERS R2-R 
1398 GSYSSRV ch RAED K,1,- :CANCEL EXIT HANDLER 
000 1399 mee nd RS> TREGISTERS R2=R5 
000 1400 GSYSSRV 6 Fen iGET CHANNEL INFOR TION 
000 1401 <Re RS. nd RS.R6.R7.R8.RO_RIO.R11> REGISTERS R2-R11 
000 1408 GSYSSRV GET Ey.K GET Device INFORMATION 
14 <Re, R RA RS,R6,R7,R8,RO_RIO,R11> : REGISTERS 
000 1404 GSYSSRV cE ET IPL .K GET 108 PROCESS 
000 1405 <R2_RS_RG RS -R6,R7,RB, R9.R10,R11> :REGISTERS R2-R11 
000 1406 GSYSSRV P UTASG ALL :PUT FORMATTED ERROR MESSAGE 
000 140 <R2,R3_RGRS_RO-R7-RB-RO_RIO,RI1> :REGISTERS RO-R11 
000 1408 GSYSSRV E chee SG. ALL ge OUTPUT EXCEPTION SUMMARY MESSAGE 
000 1409 R3,R4,R5.R6,R7,RB,RI-R10,R11> REGISTERS R2-R11 
000 1410 GSYSSRV SNDACC.E,2,- i SEND MSG TO ACOUNTING MANAGER 
9009 1411 eRe R3RL~RS,R6,R7,RB,RO_R10,R11>_ : REGISTERS R2-R11 
000 1418 GSYSSRV SETIM nek {,- “SET SYSTEM TIME 
0000 141 sf) RE-RL_RS,R6,R7,RB.RO_RIO,R11> sREGISTERS R2-R11 
0000 1414 GSYSSRV $ SETPR RV.K,4,- :SET PRIVILEGES 
0000 1415 es ar R5,R6,R7,RB> REGISTERS R2-R8 
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e Services 


NOTE THAT 


SYS.SRCJCMODSSDSP.MAR; 1 (1) Vv 


SPECIAL VECTORS FOR AST DELIVERY AND CLEARING 
SYSSCLRAST CLEARS THE CURRENTLY ACTIVE AST STATUS 
sv 5st. ASTRET CONTAINS THE VALUE OF ig RETURN ADDRESS FROM 


E CACL INSTRUCTION USED TO DISPATCH AN AST. THIS VALUE CAN 
Be seo WHEN SEARCHING UP THE STACK FOR THE AST CALL FRAME. 


DE_IN PSECT $$$000 AT THIS POINT CANNOT EXCEED oa Pe see 


THE CO 
WITHOUT MODIFYING THE RMS SYNCHRONIZATION CODE WHICH PRECEDES 
HICH CA MOVED. 


VECTORS Ww 


po feolololelolololelejlojojeojieleq) 

COOCooooooooooooo 

oa es tt 

PELL LLL LEE EEE Om 

NNN NNNPONonnn 

CUE WNM UNE WN OOOnN Ax 
Sete Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


Soooooooo 


NNOT BE 


SYSSRMS_VECTOR 
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1478 ; 
1479 ; Set up the base for the RMS service codes. We leave a hole so that 
1480 ; other exes mode system services can be defined Later in this module. 
14 ; The hole is defined by the offset between ECASCTR and RCASCTR; it 
1? ; is checked with an ASSUME at the end of all service definitions. 
00000072 14 RCASCTR=ECASCTR+10 
1489 ; 
p 1208 3 CASE DISPATCHER FOR RMS SERVICES 
09 1438 : RO HAS SERVICE DISPATCH CODE. 
14935 ; IF IN RANGE DISPATCHES TO APPROPRIATE RMS SERVICE, 
83 1338 5 ELSE SIMPLY DOES AN RSB 
0000006 1238 -PSECT S$SSRMSVEC,BYTE,NOWRT 7MUST BE FIRST PSECT IN RMS 
0000 1497 RMSSDISPATCH: : BE FIRST CODE IN FIRST RMS PSECT 
> of ? oe | AF 0000 1238 CASEW RO,S*#RCASMIN, S*#RCASMAX 
Bebe 149 
Ope 1200 RCASE: 
00000012 9 1699 RCASMIN=RCASCTR 
$49 19 , 3 HIGH USE RECORD OPERATIONS 
8004 1833 RMSSRV DELETE ;DELETE A RECORD 
0006 163 -NLIST CND 
Boos 1634 RMSSRV FIND sFIND RECORD 
0008 1635 RMSSRV FREE ;RELEASE LOCK ON ALL RECORDS 
QOOOA 1636 RMSSRV GET 3GET A RECORD 
945 1637 RMSSRV PUT :PUT A RECORD 
8 1638 RMSSRV READ ;READ A BLOCK 
001 1639 RMSSRV RELEASE ;RELEASE LOCK ON NAMED RECORD 
001 1640 RMSSRV UPDATE ;REWRITE EXISTING RECORD 
0014 164 RMSSRV WAIT ;STALL FOR RECORD OPERATION COMPLETE 
bois 192 RMSSRV WRITE sWRITE BLOCK 
i 1684 ; LOWER USAGE OPERATIONS 
01 1938 RMSSRV CLOSE ;CLOSE FILE 
O1A 165 RMSSRV CONNECT ; CONNECT RAB 
O1C 1938 RMSSRV CREATE ; CREATE FILE 
01 165 RMSSRV DISCONNECT sDISCONNECT RAB 
0 1660 RMSSRV DISPLAY sDISPLAY FILE INFORMATION 
1661 RMSSRV ERASE sERASE (DELETE) FILE 
1 § RMSSRV EXTEND sEXTEND FILE ALLOCATION 
g 166 RMSSRV FLUSH sFINISH 1/0 ACTIVITY FOR STREAM 
1664 RMSSRV MODIFY sMODIFY FILE ATTRIBUTE 
A 1665 RMSSRV NXTVOL sNEXT VOLUME 
C 1908 RMSSRV OPEN OPEN FIL 
1 RMSSRV REWIND ;REWIND FILE 
1998 RMSSRV SPAC :POSITION FOR TRANSFER 
108 RMSSRV TRUNCATE ; TRUNCATE FILE 
16 9 RMSSRV ENTE sENTER FILENAME INTO DIRECTORY 
§ 167 RMSSRV PARSE ;PARSE FILENAME SPECIFICATION 
1976 RMSSRV REMOVE ;REMOVE FILENAME FROM DIRECTORY 
A 167 RMSSRV RENAME,NARG=4 = ;RENAME A FILE 
C 1674 RMSSRV SEARCH ;SEARCH A FILE DIRECTORY 
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-SEP=1 
SETDDIR,NARG=3, NOSYNC= =1 
Set DEFAULT DIRECTORY STRING 
SETDFPROT,REGS=<R2,R3>,NARG=2,NOSYNC=1 
-SET DEFAULT eite PROTECTION MASK 
SSVEXC,REGS=<>, NOSYNC= 
GEN ERATE SYS SERV EXCEPTION 
RMSRUNDWN,NARG=2,.NOSYNC 
PERFORM RUNDOWN ON RMS FILES 
RMSRUHNDLR, nares NOSYNC=1 


S 
FILESCAN,NARG=3, Nos¥nc= 
Perform syntax check for file specs 
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; ADD NEW RMS SERVICES IN FRONT OF THIS CODE! 


GCOMPSRVB sHelper branch to error processing 
GCOMPSRVE 1 
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REGION F SYS. SERV. VECTOR DEFINITION =SEP-1984 SYS.SRCICMODSSDSP.MAR; 1 


ihn’ ans ! CLREF MASK ! SETEF_MA 


4A 7 4 .SBTTL REGION 2 OF SYS. SERV. VECTOR DEFINITIONS 
4A 1736; 
4A 17 5 ; Note: Service codes for exec mode services in this region are 
4A 17 8 5 reserved by the offset defined above between RCASCTR and ECASCTR. 
4A 1739 ; If the ASSUME at the end of this section breaks, the offset must 
4A 1740: be nadia eee y 
OCA 174 , 
4 YSSRV NOK 1 
sh 1744 sat ct RS nd, R5,R6,R7,RB_RI, “RIDER ; REGISTERS R2-R11 
GA 1246 o°RS. R4,R5,R6,R7,RB,RI, Dt: 8 REGISTERS R2-R11 
4A 174 GCOMPSRVE. Fidy ENOUEUE AND WAIT 
4A 174 Q_MASK ! WAITFR_MASK ' CLREF ots ot, ! SETE 
04A 1768 GCOMPSR ven ; RESERV SRDS" ‘oR VECTOR 
O4A 1763 GSYSSRV SETSSF.K, 1,- ; SET SYSTEM SERVICE FILTER MASK 
04A 1765 GSYSSRV SETSTK, K,3,- + SET STACK ; MITS 
O4A 1766 <R2,R3, Rb” ; REGISTERS Re, 
04A 176 GSYSSRV GEISYIK ; GET SYSTEM INFORMATION 
004A 1768 ‘Rd, 85, R6,R7,RB,R9,R! Ril? » REGISTERS R2-R11 
004A 1769 GSYSSRV InGFLY“A *ALL 0. : IMAGE ADDRESS RELOCATION FIXUP 
004A 1770 4.R : REGISTERS R2-R5 
Ren 17% eee a Pt IxX_2,- jf teeeeeeeee TEMP seeeeerene 
OMPSRV ', j teeeeerees TEMP teeeeeenee 
AN 17 eey esau GED 8 GET DEVICE AND VOLUME INFORMATION 
04A 1775 RL.RS.R6.R7_RB, Rd: R1 Ril» REGISTERS R2-R11 
O4A 1776 GCOMPSRVB “Ge TovIu: - GET DEVICE INFORMATION AND WAIT 
O4A 7 ScD DVI Ask ! GETUPI _SYNCH MASKS 
bea 17 $ GCOMPSRVB GETIPIW. GET JOB/PROCESS INFORMATION AND WAIT 
O4A rH: “see yest JP1_BASK ! GETUPI _SYNCH _MASK> 
Bea 179 SCOMPSRVS GETSYIW.< GET SYSTEM INFORMATION AND WAIT 
O4A 1800 ee <GET SY1_MASK ' GETUPI _SYNCH _MASK> 
BOCA 1810 GCOMPSRVB SNDJBCW,- ; SEND TO JOB CONTROLLER AND WAIT 
O04A 181) RE NDJBC_MASK ! GETJPI_SYNCH_MASK> 
O6A 1831 GCOMPSRVB. SYNCH. = SYNCHRONIZE ein AND I0SB 
RV : RESERVE 6 QUADWORDS FOR VECTOR 
sh i ee esau buen 3,- ; GENERATE A SECURITY ERASE PATTERN 
YSSRV CR LOGICAL NAME TAB 

tA i re se act Ri, RS.R6.R7.RB_RO AT {REGISTERS RZ-RiI 

th : 66 . R3, “Ra RS.R6.R7.RB.R9. /R10, OAlioe ok -REGISTERS R2-R11 

4A 1 68 GSYSSRV OF CNM sApELE LOGICAL NAME 

6A 1 R3. nd RS.R6,R7.RB, RY, R10,R11> :REGISTERS R2-R11 

6A 1 $ GSYSSRV ity NLNM.K TR SLATE LOGICAL NAME 

4A 1 9 2-R3,R4_RS,R6-R7.RB.RO_RIO,RI1> :REGISTERS R2-R11 

ry : rg iene ce{ce aye AS. R6,R7,R8,R9, aif ai ? STE RS R2=R11 

tA 187% GCOMPSRVB a ite : GEf LOCK’ INFORMATION ALT 
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yon. 000" REGION 5 OF SYS. SERV. VECTOR DEFINITION ~$EP=138% 84:06:49 Heys. SRCICMODSSDSP.MAR; 1  %) 
4A 1 73 <GETLKI_MASK ! WAITFR MASK ' CLREF_MASK ! SETEF_MASK> 
on i GCOMPSRVE < RESERVE 2 QUADWORDS FOR VECTOR 
4A 1 GSYSSRV ASCTOID SCII TO IDENTIFIER CONVERSION 
4A 1 ; oR 84 fick ght. R6, R7,R8, Rd, al R11> :REGISTERS Roe Rit 
4A 189 GSYSSRV rly {si Ae FINISH RDB CONTEXT STREAM 
4A 1 36 Rae Ree f Ré.R7_RB, Rd, Q.R11>_ :REGISTERS R2-R11 
4A 189 Gsyssav | DTA E i: th NTIFIER TO ASCII CONVERSION 
4A 1894 6 RSR6.R7_RB, Rd, RI R11> sREGISTERS Re-R11 
4A 1895 GSYSSRV ane eet 11.- BREA K THROUGH WRITES 
4A 1 36 <R2, Rg Uehe RS? R6, R7,R8, no, Ri »R11> ;REGISTERS R2-R11 
4A 189 GSYSSRV GR ANTIO, ALL. 5, GRANT IDEN TAFIER TO PROCESS 
4A 1 38 <R2,R3> TREGISTERS R2-R 
4A 189 GSYSSRV eran ,ALL,5,= i REVOKE IDENTIF JER FROM PROCESS 
04A 1 00 <R2,R3> EGISTERS R2-R 
04A 1901 GSYSSRV CHK KPRO.K 1 GEN ERAL PROTECTION CHECK ROUTINE 
O4A 1908 rd, <fs. R6,R7,R8, RI, R10,R11> ;REGISTERS R2-R11 
04A 19 GCOMPSRVB “BARTARU BREAK THOUGH WRITE AND WAIT 
4A 1904 re cavern HRU UmASK ' GETUPI _ SYNCH MASK> 
04A 1914 GSYSSRV Ge Tau .E,7 :GET QUEUE INEORMAT ON 
04A 1915 Ri as, R6,R7,RB,RI_R10, Rii> sREGISTERS R2-R11 
O4A 1916 GCOMPSRV “oeraut :GET QUEUE INFORMATION AND WAIT 
O04A 191 aul itt ! GETJPI_SYNCH_MASK> 
O4A 19 $ GCOMPSRVES “2 
04A 1928 ; 
00004028 O4A 19 ; CJFSKCASCTR = 16424 
4A 1931 LOBSRV CJF$, ALLJDR, K,  <R4> 
4A 19 : LDBSRV CJF$. ASSJNL, K,  <R4> 
04A 19 LOBSRV CJF$. CONUIC, K,  <R4> 
04A 1934 LOBSRV CJF$. CREJNL K, <R4> 
04A 1935 LOBSRV CJF$. DEALJDR, K, <R4&> 
004A 19 g LDBSRV CJF$. DEASJNL, ALL, <R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
004A 19 LDBSRV CJF$. DEASJNL_INT, K, | <R4> 
4A 19 8 LOBSRV CJF$. DELJNL,~ Ki <R4> 
4A 19 LOBSRV CJF$. DMTJMD. kK.  -<R4> 
04A 1940 LOBSRV CJF$. DSPJNL. K,  <R4> 
04A 1941 LOBSRV CJF$. GETJNL. K,  <R4> 
4A 1948 LOBSRV CJF$. GETRUI. K,  <R4> 
04A 194 LOBSRV CJF$. MODFLT. K,  <R4> 
04A 1944 LOBSRV CJF$. POSJNL. K, -<R4> 
4A 1945 LOBSRV CuES. READJNL, K, <R4> 
4A 1946 LOBSRV CJF$, RECOVER. K,  -<R4> 
4A 194 LDBSRV CJF$. MNTJMD, K, <R4> 
4A 1948 LOBSRV CJF$. CRENWV K,  -<R4> 
th 198 topsay firs. Comms. =. <b 
4A 1981 LOBSRV att FORCEJNL, ALL, <R2,R3,R4,R -RO.RTR »R9,R10,R11> 
6a 1 ; LOBSRV CJF$, FORCEJNLW, ALL, <R2,R3.R4,R5,R6,R7.R8.R9,R10,R11> 
4A 195 LOBSRV CJF$, WRITEJNL, ALL, <R2.R3,R4.R ROR? AR -R9,R10,R11> 
4A 1954 LOBSRV CJF$, WRITEJNLW, ALL, <R2,R3,R4,R5,R6,R7.R8,R9,R10,R11> 
4A 1955 LOBSRV CJF$. GETCJI, K,  <R4> 
4A 1956 LOBSRV CJF$. DMTJMDU, K,  -<R4>, 4, 5, DMTIMD 
4A 195 LOBSRV CJF$. MODFLTW, K; <RO>, 4. 5° MODELT 
4A 1958 LOBSRV CJF$. POSJNLW. K,  <R4>, 4. 5° POSINL 
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4A 195 LDOBSRV CJF$, READJNLW, K, <R4>, READJNL 
re ie LDBSRV CJFS$, RECOVERW, K,  <R4>, ¢¢ 3 6; RECOVER 
4A 1 3 
00004010 7 ie ; RUFSKCASCTR = 16400 

4A 13 .* LDBSRV RUFS, REENTERRU, K, <R2,R3,R4,R5,R6> 
4A 19 § LDBSRV RUF$, STARTRU, <R2,R3,R4,R5,R6> 
4A 12 8 LDBSRV RUF$, PHASE2 K, <R2,R aoe -RG> 
6A 1 6 LDBSRV RUS, CANCE ELRU K, <R2.R3.R4.R5.R6> 
4A 19 p LOBSRV RUFS, RARKPOINERU, K, <R2.R3, 44RDOR > 
4A 197 LOBSRV RUFS, RESETRU, » R2,R5,R4,R5,R6> 
ae a ce a SB 
3 197% LDBSRV RUF$, RUSTATUS, K, <R2,R3.R4.R5.R6> 
O4A 1908 $ End Recovery Unit consists of a two-phase commit, so we call each 
re 137 3; phase separately. 
noe 1978 ; erouptave ENDRU, <PHASE1_MASK ! PHASE2_MASK>, RUF$ ; End Recovery Unit 

Soca 1991 KOs ag fe e installation specific access routi 
O4A 1336 R6,R7,R8, Ro R1 > ;REGISTERS R2-R11 

Sek 188 

004A 1995 : End of system service vector definitions. New system services are 

Bote 1398 ; to be added at this point. 

004A $008 , ASSUME RCASMIN GE ECASCTR zsExec service codes must not collide with RM 
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ECT S$SSRMSVEC BYTE ,NOWRT 


NI 
CT 
q 
RSB sNOT AN RMS EXEC MODE SERVICE 


SERVICE TO MERELY MOVE RMS STATUS CODE IN R2 TO RO AND RET, 
THUS GENERATING A SYSTEM SERVICE FAILURE EXCEPTION IF ENABLED 


Rese 
MOVL 
RET 


Qurun oo 


R2,RO sMOVE STATUS CODE TO RO 
zAND LET RET DO THE REST 


Pa 22 
a (1) 


voe-o0o7 sey SEE LESTRR,PELEMEOEONS urszon “ESEBSISEE 84:98:43 US¥sSaclemopsspspeman:1 "9" 23, ve 
QO4F 2345 END 


RSE 
VO4 


~ 
Aa 
~~ 
@& 
a 
Co) 
a 
- 
** 
«< 
i? 
oz 
os 
;a 
ww 
oa 
>uw 
wn 
oa N NINOS 
. o SOooooooooooo 
v 
ew 
=e ' 
ve <a  OE E  O  O 
Wa 
=e ; « a 
— 
~~ OVUGR.Y VOT TOR VENT TNO DOT DOT VOVVOSDOVOMSIUNPRDOVOReF Bee eOe Beet 
<> OOO -oonr— H—— OOO KOK NNINIOHMONK KK UNE eee eOeeeeae 
See ee eOeeeneneen 
ee ee e2Oe #8 ee ee 
eee eeOe een nane 
See eeOe © ete eee 
Se eeeOe eenenaen 
See eezeOeeeunuea 
wTro HUHRUNUUHHHHHHHHHHHHHHHHHHHHRHHHKHHHKHHhHHHHaH nhnHonnnnu 
Mm 
oo 
ww 
ooo 
oan 
fr 
és 
aa 
uw 
mn 
i) 
own 
_- a w 
=< w oO = 
-a > &za - <« = 
wave oaoacet OM Ls) 
@o0Cw «a0 @j0Ow ws 4 
- VYEKaK Kee ZYECO c= _ zZzu> << 
Orwetw YMMuOr<oO oa “” VCwwse<t ov 
SIZE EW Ze <az wow wwe - OF Yew 
we e#eeoeees @#eee0eeee)s ae 2 42): YAMZCwveeadwrwwwoa 
PCAC AAG MEH LW MvrPxzusdoetenmsnwoege «Zz wi we FS ne, 
oo te EU “€m@vUwu2ZOaaaaads— ao MUwo iid 2 ult Ze Mee 
Me LD I OO ee cee epee et § Bowes tS EOE Re es 
S44 JI UGDMNMMNMNNNNGA + OF [SZM = RKHRHBHAHABAABGHHGARAMNMNMNYAWOE-§KHKHKHA rs 
capen bea deadenbeadeaenDeaPUADUADRADeaDeADRAD ESE OF UO OE Ee ok eee te rerrerreree 
Se era} gape) 1 - SS] 2 alenisnisnionionionioniaiaiganiad ba hat et tt et tt + Se SS 
OVVOIOV OVO VVVOVOrHTZSFZOoQAacocvoccscosco9~ c00 909eaeacaeaacaacaacaacaacaacac¢caa¢&cac&cax 


= RMS SERVICE VECTOR DEFINITIONS 


< 
oO 
— 
=) 4 
iv) oad 
> v 

” 
” <t 
= Y 
a a 
A A 
” _ 
> = 
” vw 


Symbol fable 


sssssssssessrs ese 
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RMSSWAIT eeeeeeee 
RMSSWRITE arenes 


B 2 | 
SYSSRMS_ VECTOR - RM ® <SEP- 04: = 
Symbol. table a ee "SSEp-1984 03:40:37 Eevsesactemopsspspcmar:1 "28° 2, 
RMSSFLUSH erereree =X UPDSEC$ RETADR * 
RMSSFREE eeereree =X $333 St Shag 2 08 
aa eeereeee XxX walt.” . OO1A 
$MOD eterenree 
RMSSNXTVOL errereee : waite = 00900018 
RMSSOPEN eereeree x 
RMSSPARSE ererreee x 
RMSSPUT eeereree Xx 
RMSSREAD eeneeree 8 XX 
RMSSRELEASE tererese XxX 0 
RMSSREMOVE eerereeer KX 0 
eteeeere =X 
RMSSREWIND eeeeeree xX 
RMSSRMSRUHNDLR etereree 
RMSSRMSRUNDWN eererere KX 0 
RMSSSEARCH ereeeere KX 0 
RMSSSETDDIR eererere KX 0 
RMSSSETDF PROT trereeee XK 0 
met saa yf 
= 00000049 R 

RMSSTRUNCATE eereeere xX 8 
RASSUPDATE eereeere KX 0 

x 0 

:-% 


SNDJ 
SNDJBC$_ASTADR 
SNDJBCS"ASTPRA 


SNDJBC$_NARGS 
SNDJBC$~NULLARG 
SNDOPR 


SEC$_10S8 
UPDSECS_NARGS 


% 
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Psect synopsis -SEP-1984 240: 


tae ome Soom Oe meee es 


Psect synopsis ! 


' 
+ eee ae eeececeococeeon +} 


PSECT name Allocation PSECT No. Attributes 


The working set Limit was 2100 pages. 

252496 bytes (494 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1232 non-local and 0 local symbols. 
2346 source Lines were read in Pass 1, progye ing 15 object records in Pass 2. 

44 pages of virtual memory were used to define 40 macros. 


ewe eeroeoooeeoeeoeeoeoeoeoeoeoos $+ 


+ 
! Macro library statistics ! 
+ 


wear anew ene wae eeeeeecoooeooooea + 


Macro Library name Macros defined 


_$255$DUA28:(SYS.OBJ]LIB.MLB; 1 6 
$255$DUA28: (CSYSLIBIJSTARLET.MLB;2 19 
TOTALS (all Libraries) 25 


1210 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 


IOSHR NOEXE NORD NOWRT NOVEC BYTE 
o.% WRT NOVEC BYTE 


OSHR RD NOWRT NOVEC BYTE 


» 8.2 00000000 ( +) 00 ¢ QO.) NOPIC USR CON ABS LCL WN 

SABSS 00000000 ¢ -) O1¢ 1.) NOPIC USR CON ABS LCL NOS 

SSSRMSVEC O000004F ¢ 79.) 02 ¢ 2.) NOPIC USR CON REL LCLN 
¢eecoeececen SD mem Emo ms aaeeeone + 
: Performance indicators ; 

Phase Page faults CPU Time Elapsed Time 

Initialization 30 00:00:00. 0:00:00.94 

Command processing 112 00:00:00.6 0: 0:98 -06 

Pass 721 0:00:22.46 BB Ba: 98 

Symbol table sort 8 0:00: 1-98 00: 8: 3.70 

Pass 2 19 0:00:06.4 00:00:20.99 

Symbol table output 21 00:00:00.17 00:00:00.61 

Psect synopsis output 1 8860.06 6 00:00:00.03 

Cross-reference output es Se e's Be fs 

Assembler run totals 107 00:00:31.76 00:01:40.35 
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